home *** CD-ROM | disk | FTP | other *** search
/ Night Owl 6 / Night Owl's Shareware - PDSI-006 - Night Owl Corp (1990).iso / 037a / tpfast40.zip / T_BIT.PAS < prev    next >
Pascal/Delphi Source File  |  1991-11-14  |  547b  |  22 lines
  1.  
  2. uses crt,tpfast;
  3.  
  4. var   wnum              :word;
  5.       ch                :char;
  6.  
  7.  
  8. begin
  9.   textattr := 7;
  10.   clrscr;
  11.   repeat
  12.     gotoxy(1,1);
  13.     writeln('Enter a numeric number or 0 to quit .. ?');
  14.     gotoxy(43,1);
  15.     readln(wnum);
  16.     writeln;
  17.     writeln('Word  entered             ... ',wnum);
  18.     writeln('Word rotated left 1       ... ',rotatewordleft(wnum,1));
  19.     writeln('Word rotated right 1 bit  ... ',rotatewordright(wnum,1));
  20.     writeln('Word converted to hex     ... ',wordtohex(wnum));
  21.   until wnum = 0;
  22. end.